        (  ɡ   )      ɡ        
   ǡ   ǡ             ǡ                       
    
:
Sheets("")
Sheets("")

////////////////////////////////
Sub LISTS()
'   

    Range("C2:C5000").Select
    Selection.ClearContents
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

    Sheets("").Select
    
    'ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=67, Criteria1:= _
     '   ""
    
    

        
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=123, Criteria1:= _
        ""
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=136, Criteria1:= _
        ""
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=137, Criteria1:= _
        ""
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=138, Criteria1:= _
        ""
    
    
    Range("Table2[1]").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast

    Sheets("").Select

    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Calculate
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

    Sheets("").Select
    ActiveSheet.ShowAllData
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast

    Sheets("").Select
    Range("C2").Select

